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Save $14.00 

Off Newsstand Price 



Find out why Antic is . 

# 1 in Editorial 

# 1 in User Support 

# 1 in Software 

# 1 in Circulation 

# 1 in Advertising Sales 



GET STARTED TODAY! 



□ Yes, please send me a full year of Antic Magazine (12 issues) at the special money-saving rate 
of $28.00. 1 understand that's a discount of over 34% off the newsstand rate. Bill me later. 



Name. 



Company _ 
Address _ 



(please print) 



City. 



. State . 



.Zip. 



Please allow 4-6 weeks for delivery of your first issue. 
Canadian & Mexican residents add S8.00 Per year. Other 
Foreign subscriptions add $12.00 Per year. (Payment must 
accompany all overseas orders.) 
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COMPUTER ARTS 
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TO GET STARTED! 
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GET STARTED TODAY! 



D Yes, I want more time to enjoy my Atari computers. Please send me the monthly Software Disk (1 2 issues) 
with the regular Antic Magazine subscription at the special money-saving rate of $99.95. Subscription 
will begin with receipt of payment. 

D check enclosed , edit card oi 

Name , : Company . , 



(plea'- 



Address . 
City 



State . 



Zip. 



Credit Card * . 
Exp. Date 



□ VISA 



Signature . 
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More colorful enjoy- 
ment for your Atari 
from Antic. Each of 
these BASIC programs 
is a mini computer art- 
work, just for you! 



1 PRINT "*UHAT GRAPHICS 

MODE C9 , lO , 111 " ; : INPUT 
A 

29 REM LIGHTSHOU n2 

30 GRAPHICS A: FOR 1=0 T 
O 79:F0R J=8 TO 79:C0L0 
R I+J/4+4 

48 PLOT I,79-J:PL0T J, 7 
9-I:PLOT 79-J, 79-1 : PLOT 
79-1, 79-J: PLOT 79-1. J: 
PLOT 79-J,I:PL0T I , J : PL 
OT J, I 

50 NEXT J : MF.HT I 
60 GOTO 60 



5 Z=0 






10 


GRAPHICS 


11 


20 


FOR 1=1 TO 


79 


30 


Z=Z+l:IF 


Z>9 THEN Z= 


1 








35 


COLOR Z 






40 


PLOT I,H 


DRHUTO 79-1 


,X 








50 


PLOT 1,198 


•X : DRAUTO 


79 


1,190-K 






60 


K=K+2:IF 


X>198 THEN 


X = 8 






70 


NEXT I:Z= 


=Z+1:G0T0 10 


10 


GRAPHICS 


8 + 16 


28 


SETCOLOR 


2, 


18,8 


38 


FOR 1=1 TO 


198 STEP 


7 








40 


PLOT 1,8 


. DRAUTO 388, 


I 








45 


PLOT 380 


-I, 


198--DRAUT 


0-190-1 






50 


PLOT 0,190- 


-I : DRAUTO 


1,0 






55 


PLOT 308 


I 


DRAUTO 38 


8-1,198 






60 


NEXT I 






65 


GOTO 65 







10 GRAPHICS 11 

20 FOR X = TO 78 

30 C=C*l: COLOR C : IF C=l 

27 THEN C=0 

40 PLOT H,V: DRAUTO 78-X 

,Y: DRAUTO 78-K, 191-Y :DR 

AUTO K, 191-Y: DRAUTO H,Y 

58 Y=V+2:IF V>191 THEN 

Y = 8 

60 NEXT X:GOTO 20 



